home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / FIXAXIS.LI < prev    next >
Text File  |  1994-08-01  |  321b  |  11 lines
  1. fixaxis(xmin_,xmax_,ymin_,ymax_) := block(line(0,getmaxy*0.5,getmaxx,getmaxy*0.5),
  2.     moveto(0,getmaxy*0.5+10),
  3.     writes(xmin),
  4.     moveto(getmaxx-30,getmaxy*0.5+10),
  5.     writes(xmax),
  6.     line(getmaxx*0.5,0,getmaxx*0.5,getmaxy),
  7.     moveto(getmaxx*0.5-20,0),
  8.     writes(ymax),
  9.     moveto(getmaxx*0.5-20,getmaxy-10),
  10.     writes(ymin))
  11.